home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / Editor / golded.mod < prev   
Encoding:
Text File  |  2000-03-18  |  1.9 KB  |  105 lines
  1. /* $VER: HTMLEXT Modul: golded.mod Rev.020 © by Juan Manuel Wehrli 1999 - 2000
  2.  */
  3. if ~show("L",rexxtricks.library) then do
  4.         call addlib("rexxtricks.library",0,-30,0)
  5. end
  6.  
  7. PARSE ARG Befehl Option
  8. OPTIONS RESULTS
  9. ADDRESS COMMAND
  10.  
  11. if Befehl = QUIT then do
  12.     if show('P',"GOLDED.1") then do
  13.         ADDRESS GOLDED.1 QUIT ALL
  14.     end
  15. end
  16.  
  17. if Befehl = OPEN then do
  18.     winopts = GETENV('.htmlext.edwin')
  19.     if ~show('P',"GOLDED.1") then do
  20.         'golded:ed'
  21.         "sys:rexxc/WaitForPort GOLDED.1"
  22.         'WINDOW 'winopts
  23.     end
  24.     ADDRESS GOLDED.1
  25.     OPEN Option
  26.     'WINDOW 'winopts
  27. end
  28.  
  29. if Befehl = OPENNEW then do
  30.     winopts = GETENV('.htmlext.edwin')
  31.     if ~show('P',"GOLDED.1") then do
  32.         'golded:ed'
  33.         "sys:rexxc/WaitForPort GOLDED.1"
  34.         ADDRESS GOLDED.1
  35.         'WINDOW 'winopts
  36.         OPEN Option
  37.         exit
  38.     end
  39.     ADDRESS GOLDED.1
  40.     OPEN NEW Option
  41.     'WINDOW 'winopts
  42. end
  43.  
  44. if Befehl = BLOCKSAVE then do
  45.     if show('P',"GOLDED.1") then do
  46.         ADDRESS GOLDED.1 SAVE BLOCK NAME Option
  47.     end
  48. end
  49.  
  50. if Befehl = ICONIFY then do
  51.     if show('P',"GOLDED.1") then do
  52.         ADDRESS GOLDED.1 SCREEN ICONIFY
  53.     end
  54. end
  55.  
  56. if Befehl = UNICONIFY then do
  57.     if show('P',"GOLDED.1") then do
  58.         ADDRESS GOLDED.1 SCREEN FRONT
  59.     end
  60. end
  61.  
  62. if Befehl = INSERT then do
  63.     if show('P',"GOLDED.1") then do
  64.         ADDRESS GOLDED.1
  65.         OPEN Option INSERT
  66.     end
  67. end
  68.  
  69. if Befehl = PASTE then do
  70.     if show('P',"GOLDED.1") then do
  71.         address command 'htmlext:c/MagicClip PUT ' || Option
  72.         ADDRESS GOLDED.1
  73.         CLIP PASTE
  74.     end
  75. end
  76.  
  77. if Befehl = FIND then do
  78.     if show('P',"GOLDED.1") then do
  79.         ADDRESS GOLDED.1
  80.         'FIND STRING 'Option' FIRST'
  81.     end
  82. end
  83.  
  84.  
  85. if Befehl = MFIND then do
  86.     if open("f","t:htmlext.find",r) then do
  87.         do while ~EOF("f")
  88.             file = readln("f")
  89.             if ~show('P',"GOLDED.1") then do
  90.                 'golded:ed 'file
  91.             end
  92.             else do
  93.                 ADDRESS GOLDED.1 'OPEN 'file' NEW'
  94.             end
  95.             ADDRESS GOLDED.1
  96.             'FIND STRING 'Option' FIRST'
  97.             ADDRESS COMMAND
  98.             'wait 1'
  99.         end
  100.         call close("f")
  101.         'delete t:htmlext.find >NIL:'
  102.     end
  103. end
  104.  
  105.